The Uninvited Press Kit/THE UNINVITED.iso/pc/program.dxr/Internal_13_QT Mui.ls

Text File | 2008-12-30 | 927 b | 31 lines

on qtInstall me
  zel = the moviePath & "QT\QT_Installer"
  zed = the moviePath & "QT:QT_InstallMac"
  if the platform contains "Mac" then
    quick = baOpenFile(zed & ":QuicktimeInstaller", "normal")
    quit()
  else
    quick = baOpenFile(zel & "\QuicktimeInstaller.exe", "Normal")
    quit()
  end if
end

on enterFrame
  muiobject = new(xtra("MUI"))
  beep()
  alertpropertieslist = [#buttons: #YesNo, #default: 1, #title: "QuickTime Update", #message: "Your version of QuickTime should be upgraded to QuickTime 5.0 in order for the included files to play properly. Press 'yes' to install QuickTime 5.0.  This program will need to be restarted after installation.", #movable: 1, #xPosition: -1, #yPosition: -1, #icon: #question]
  answer = alert(muiobject, alertpropertieslist)
  muiobject = 0
  case answer of
    1:
      qtInstall()
    2:
      go("AGREE")
  end case
  quick = 0
end

on exitFrame
  go(the frame)
end